Fish-Behaviour-Exploration

# make plots for depth over time
fishes <- unique(processed_data$fishNum)

for (fish in fishes) {
  plot(processed_data[processed_data$fishNum == fish,]$pingNumber, -processed_data[processed_data$fishNum == fish,]$Target_true_depth, main = fish)
}

# make plots for depth over time with common depth scale
fishes <- unique(processed_data$fishNum)

for (fish in fishes) {
  plot(processed_data[processed_data$fishNum == fish,]$pingNumber, -processed_data[processed_data$fishNum == fish,]$Target_true_depth, main = fish, ylim = c(-19, -9))
}

# function to look at one specific fish
specific_fish_ping_lag <- function(fishCode, indicator_n = 200){
  fish_of_interest <- (data.frame(processed_data[processed_data$fishNum == fishCode, ]))
  lst_of_ping <- c()
  for (i in 1:(nrow(fish_of_interest) - 1)){
    diff_t = fish_of_interest[i + 1,]$pingNumber - fish_of_interest[i,]$pingNumber
    if ( diff_t >= indicator_n){
      lst_of_ping <- c(lst_of_ping, i)
    }
  }
  cat("Fish", fishCode, "pings:", lst_of_ping, "\n")
}

# sample usage
specific_fish_ping_lag("LT001", 100)

## Fish LT001 pings: 4 6 37 38 48 117 119

# generate starting ping numbers of gaps
fishes <- unique(processed_data$fishNum)
for (fish in fishes) {
  specific_fish_ping_lag(fish)
}

## Fish LT001 pings: 6 38 48 117 119 
## Fish LT003 pings: 270 449 540 560 667 881 916 995 1035 1064 1089 1091 1143 1173 1174 1178 
## Fish LT004 pings: 4 51 90 313 381 399 495 505 707 725 748 760 767 861 866 867 883 933 936 
## Fish LT005 pings: 5 17 29 44 45 46 132 197 203 331 394 401 415 446 504 
## Fish LT006 pings: 18 31 62 120 128 131 141 159 161 222 256 
## Fish LT007 pings: 9 36 60 83 102 116 192 201 260 270 285 339 355 373 410 452 470 513 594 598 619 
## Fish LT009 pings: 18 51 73 326 356 382 388 407 468 471 479 646 
## Fish LT010 pings: 5 57 74 78 80 91 104 112 116 
## Fish LT011 pings: 11 21 90 246 330 399 446 449 506 
## Fish LT012 pings: 109 154 165 166 221 320 359 
## Fish LT013 pings: 2 19 37 59 67 70 101 
## Fish LT014 pings: 45 74 1846 2046 
## Fish LT015 pings: 121 170 172 
## Fish LT016 pings: 10 415 1651 1853 1865 
## Fish LT017 pings: 195 440 442 621 623 781 794 797 
## Fish LT018 pings: 4 57 113 
## Fish LT019 pings: 110 151 216 225 234 237 
## Fish LT020 pings: 41 43 190 193 217 222 337 338 356 357 359 395 
## Fish LT021 pings: 45 193 246 259 262 
## Fish LT23001 pings: 16 69 115 150 213 215 295 400 
## Fish LT23002 pings: 62 1318 1481 1640 1667 1679 
## Fish LT23003 pings: 74 80 99 298 
## Fish LT23004 pings: 
## Fish LT23005 pings: 111 
## Fish LT23007 pings: 627 
## Fish LT23008 pings: 2 54 204 293 343 
## Fish LT23009 pings: 917 
## Fish LT23010 pings: 772 808 846 960 
## Fish LT23011 pings: 155 214 219 225 278 
## Fish LT23012 pings: 4 
## Fish LT23013 pings: 6 165 192 232 302 
## Fish LT23018 pings: 154 168 
## Fish LWF001 pings: 143 155 205 301 341 419 478 551 783 
## Fish LWF002 pings: 14 70 71 99 113 158 192 228 279 345 401 438 
## Fish LWF003 pings: 117 
## Fish LWF004 pings: 24 28 62 77 82 125 150 172 173 179 180 210 
## Fish LWF005 pings: 14 33 48 78 265 
## Fish LWF006 pings: 16 31 81 95 102 117 
## Fish LWF007 pings: 9 27 57 68 75 160 182 187 198 203 231 249 277 280 291 303 333 
## Fish LWF009 pings: 11 14 18 
## Fish LWF010 pings: 35 181 287 315 346 408 474 480 
## Fish LWF011 pings: 23 47 76 94 156 385 432 591 651 652 1027 
## Fish LWF012 pings: 122 181 211 214 215 330 365 392 412 413 461 
## Fish LWF013 pings: 81 121 303 396 443 513 559 564 627 
## Fish LWF014 pings: 383 2251 
## Fish LWF015 pings: 38 78 
## Fish LWF23001 pings: 88 256 478 
## Fish LWF23002 pings: 9 199 221 304 335 338 
## Fish LWF23003 pings: 108 178 194 480 575 646 
## Fish LWF23004 pings: 34 135 169 352 373 
## Fish LWF23005 pings: 123 168 
## Fish LWF23006 pings: 57 116 120 182 203 
## Fish LWF23007 pings: 14 172 179 182 191 
## Fish LWF23008 pings: 11 48 429 569 570 656 
## Fish LWF23009 pings: 20 24 51 173 182 185 188 
## Fish LWF23010 pings: 29 48 50 56 
## Fish LWF23011 pings: 1 7 13 46 82 
## Fish LWF23012 pings: 175 
## Fish LWF23013 pings: 7 17 25 26 28 30 
## Fish LWF23014 pings: 26 29 
## Fish LWF23015 pings: 57 109 111 136 259 280 309 
## Fish LWF23016 pings: 78 80 165 167 170 190 
## Fish LWF23017 pings: 10 85 93 98 110 124 
## Fish LWF23018 pings: